home *** CD-ROM | disk | FTP | other *** search
/ PCMania 19 / PCMania19.iso / Jogos em Flash / ESTRATEGIA / BATTLE_SHIPS.SWF / scripts / frame_146 / DoAction.as
Text File  |  2003-11-17  |  1KB  |  59 lines
  1. sd = "1";
  2. while(sd < "7")
  3. {
  4.    ok = "0";
  5.    while(ok == "0")
  6.    {
  7.       xx = random("20");
  8.       yy = random("20");
  9.       rot = random("4" + "4" * (sd == "2" or "3" < sd));
  10.       while(rot)
  11.       {
  12.          call("rotate");
  13.          rot -= "1";
  14.       }
  15.       call("check");
  16.    }
  17.    if(qq == "0")
  18.    {
  19.       duplicateMovieClip("/s","s" add sd,sd + 16384);
  20.       set("_level0/s" add sd add ":sd",sd);
  21.       tellTarget("/s" add sd)
  22.       {
  23.          gotoAndPlay(1);
  24.       }
  25.       setProperty("s" add sd, _X, xx * "15" + dx + "7.5");
  26.       setProperty("s" add sd, _Y, yy * "15" + dy + "7.5");
  27.    }
  28.    x = "0";
  29.    while(x < "5")
  30.    {
  31.       y = "0";
  32.       while(y < "5")
  33.       {
  34.          if(eval("s" add sd add x add y))
  35.          {
  36.             set("m" add (xx + x - "2") add "_" add (yy + y - "2"),eval("s" add sd add x add y));
  37.          }
  38.          y += "1";
  39.       }
  40.       x += "1";
  41.    }
  42.    sd += "1";
  43. }
  44. if(qq)
  45. {
  46.    if(start)
  47.    {
  48.       gotoAndPlay(37);
  49.    }
  50.    else
  51.    {
  52.       gotoAndPlay(41);
  53.    }
  54. }
  55. else
  56. {
  57.    gotoAndPlay(139);
  58. }
  59.